﻿Public Class consultaCliente
    ''--- Propiedad para ver desde que formulario accedo a la busqueda de producto
    Private mModoAcceso As String
    Public Property ModoAcceso() As String
        Get
            Return mModoAcceso
        End Get
        Set(ByVal value As String)
            mModoAcceso = value.Trim.ToUpper
        End Set
    End Property

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Selecciona()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Salir()
    End Sub
    Sub Selecciona()
        Dim Cliente As New clsCliente()
        Dim ClienteDao As New daoCliente()
        Dim cli_id As Int32
        cli_id = Convert.ToInt32(grdClientes.CurrentRow.Cells.Item(0).Value)

        Cliente = ClienteDao.TraeCliente(cli_id)
        Select Case ModoAcceso
            Case "ACTUALIZA CLIENTE"

                actualizarCliente.txtNroCli.Text = Cliente.Cli_Id.ToString.Trim
                actualizarCliente.txtDNI.Text = Cliente.Dni.Trim.ToUpper
                actualizarCliente.txtApe.Text = Cliente.Apellido.Trim.ToUpper
                actualizarCliente.txtNom.Text = Cliente.Nombre.Trim.ToUpper
                actualizarCliente.txtDir.Text = Cliente.Direccion.Trim.ToUpper
                actualizarCliente.txtNoDir.Text = Cliente.Altura.Trim.ToUpper
                actualizarCliente.txtPiso.Text = Cliente.Depto.Trim.ToUpper
                actualizarCliente.txtTel.Text = Cliente.Tel.Trim.ToUpper
                actualizarCliente.txtEmail.Text = Cliente.Email.Trim.ToUpper
                actualizarCliente.txtCuit.Text = Cliente.Cuit.Trim.Trim.ToUpper
                If Cliente.Tipo = "P" Then
                    actualizarCliente.cmbTipoCli.SelectedIndex = 0
                Else
                    actualizarCliente.cmbTipoCli.SelectedIndex = 1
                End If

                actualizarCliente.txtNroCli.Enabled = False
                actualizarCliente.txtDNI.Enabled = True
                actualizarCliente.txtApe.Enabled = True
                actualizarCliente.txtNom.Enabled = True
                actualizarCliente.txtDir.Enabled = True
                actualizarCliente.txtNoDir.Enabled = True
                actualizarCliente.txtPiso.Enabled = True
                actualizarCliente.txtTel.Enabled = True
                actualizarCliente.txtEmail.Enabled = True
                actualizarCliente.txtCuit.Enabled = True
                actualizarCliente.cmbTipoCli.Enabled = True

                actualizarCliente.btnActualiza.Enabled = True
                actualizarCliente.btnConsulta.Enabled = False
                actualizarCliente.btnLimpia.Enabled = True
                actualizarCliente.Enabled = True
            Case "VENTA INMEDIATA"
                registrarVentaI.txtCodClie.Text = Cliente.Cli_Id.ToString.Trim
                registrarVentaI.txtDni.Text = Cliente.Dni.Trim.ToUpper
                registrarVentaI.txtNomClie.Text = Cliente.Nombre.Trim.ToUpper
                registrarVentaI.txtApeClie.Text = Cliente.Apellido.Trim.ToUpper
                If Cliente.Tipo = "P" Then
                    registrarVentaI.txtTipoClie.Text = "PARTICULAR"
                Else
                    registrarVentaI.txtTipoClie.Text = "EMPRESA"
                End If

                registrarVentaI.txtCodClie.Enabled = False
                registrarVentaI.txtDni.Enabled = False
                registrarVentaI.txtNomClie.Enabled = False
                registrarVentaI.txtApeClie.Enabled = False
                registrarVentaI.txtTipoClie.Enabled = False
                registrarVentaI.Enabled = True
            Case "VENTA PRESUPUESTO"
                registrarVentaP.txtCodClie.Text = Cliente.Cli_Id.ToString.Trim
                registrarVentaP.txtDni.Text = Cliente.Dni.Trim.ToUpper
                registrarVentaP.txtNomClie.Text = Cliente.Nombre.Trim.ToUpper
                registrarVentaP.txtApeClie.Text = Cliente.Apellido.Trim.ToUpper
                If Cliente.Tipo = "P" Then
                    registrarVentaP.txtTipoClie.Text = "PARTICULAR"
                Else
                    registrarVentaP.txtTipoClie.Text = "EMPRESA"
                End If

                registrarVentaP.txtCodClie.Enabled = False
                registrarVentaP.txtDni.Enabled = False
                registrarVentaP.txtNomClie.Enabled = False
                registrarVentaP.txtApeClie.Enabled = False
                registrarVentaP.txtTipoClie.Enabled = False
                registrarVentaP.Enabled = True
            Case "PRESUPUESTO"
                registrarPresupuesto.txtCodClie.Text = Cliente.Cli_Id.ToString.Trim
                registrarPresupuesto.txtDni.Text = Cliente.Dni.Trim.ToUpper
                registrarPresupuesto.txtNomClie.Text = Cliente.Nombre.Trim.ToUpper
                registrarPresupuesto.txtApeClie.Text = Cliente.Apellido.Trim.ToUpper
                If Cliente.Tipo = "P" Then
                    registrarPresupuesto.txtTipoClie.Text = "PARTICULAR"
                Else
                    registrarPresupuesto.txtTipoClie.Text = "EMPRESA"
                End If

                registrarPresupuesto.txtCodClie.Enabled = False
                registrarPresupuesto.txtDni.Enabled = False
                registrarPresupuesto.txtNomClie.Enabled = False
                registrarPresupuesto.txtApeClie.Enabled = False
                registrarPresupuesto.txtTipoClie.Enabled = False
                registrarPresupuesto.Enabled = True
            Case "ALTA OS"

                altaOrdenDeServicio.txtCodClie.Text = Cliente.Cli_Id.ToString.Trim
                altaOrdenDeServicio.txtDni.Text = Cliente.Dni.Trim.ToUpper
                altaOrdenDeServicio.txtNomClie.Text = Cliente.Nombre.Trim.ToUpper
                altaOrdenDeServicio.txtApeClie.Text = Cliente.Apellido.Trim.ToUpper
                If Cliente.Tipo = "P" Then
                    altaOrdenDeServicio.txtTipoClie.Text = "PARTICULAR"
                Else
                    altaOrdenDeServicio.txtTipoClie.Text = "EMPRESA"
                End If

                altaOrdenDeServicio.txtCodClie.Enabled = False
                altaOrdenDeServicio.txtDni.Enabled = False
                altaOrdenDeServicio.txtNomClie.Enabled = False
                altaOrdenDeServicio.txtApeClie.Enabled = False
                altaOrdenDeServicio.txtTipoClie.Enabled = False
                altaOrdenDeServicio.Enabled = True
            Case "SORTEO"

                generarSorteo.txtCodClie.Text = Cliente.Cli_Id.ToString.Trim
                generarSorteo.txtDni.Text = Cliente.Dni.Trim.ToUpper
                generarSorteo.txtNomClie.Text = Cliente.Nombre.Trim.ToUpper
                generarSorteo.txtApeClie.Text = Cliente.Apellido.Trim.ToUpper
                If Cliente.Tipo = "P" Then
                    generarSorteo.txtTipoClie.Text = "PARTICULAR"
                Else
                    generarSorteo.txtTipoClie.Text = "EMPRESA"
                End If

                generarSorteo.txtCodClie.Enabled = False
                generarSorteo.txtDni.Enabled = False
                generarSorteo.txtNomClie.Enabled = False
                generarSorteo.txtApeClie.Enabled = False
                generarSorteo.txtTipoClie.Enabled = False
                generarSorteo.Enabled = True
        End Select
        Me.Close()
    End Sub
    Private Sub grdClientes_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdClientes.DoubleClick
        Selecciona()
    End Sub
    Private Sub Salir()
        Select Case ModoAcceso
            Case "ACTUALIZA CLIENTE"
                actualizarCliente.Enabled = True
            Case "VENTA INMEDIATA"
                registrarVentaI.Enabled = True
            Case "PRESUPUESTO"
                registrarPresupuesto.Enabled = True
            Case "VENTA PRESUPUESTO"
                registrarVentaP.Enabled = True
            Case "ALTA OS"
                altaOrdenDeServicio.Enabled = True
            Case "SORTEO"
                generarSorteo.Enabled = True
            Case "INFORME CLIENTE"
                informeCCliente.Enabled = True
        End Select
        Me.Close()
    End Sub

    Private Sub consultaCliente_Deactivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
        Salir()
    End Sub

    Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
        'mejorar sistema impresion
        PrintForm1.Form = Me
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print()
    End Sub

    Private Sub consultaCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Select Case ModoAcceso
            Case "ACTUALIZA CLIENTE"
                btnImprimir.Visible = False
                btnAceptar.Visible = True
            Case "VENTA INMEDIATA"
                btnImprimir.Visible = False
                btnAceptar.Visible = True
            Case "PRESUPUESTO"
                btnImprimir.Visible = False
                btnAceptar.Visible = True
            Case "VENTA PRESUPUESTO"
                btnImprimir.Visible = False
                btnAceptar.Visible = True
            Case "ALTA OS"
                btnImprimir.Visible = False
                btnAceptar.Visible = True
            Case "SORTEO"
                btnImprimir.Visible = False
                btnAceptar.Visible = True
            Case "INFORME CLIENTE"
                btnImprimir.Visible = True
                btnAceptar.Visible = False
        End Select
    End Sub
End Class
